home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / three deep.boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  468b  |  20 lines
  1. 10 poke53281,2:poke53280,2
  2. 15 print"[158][147]"
  3. 20 print"   [215]arning!"
  4. 30 print:print
  5. 40 print"[217]ou can not run [212][200][210][197][197] [196][197][197][208] from here."
  6. 70 print:print"[208]ress[160]<space> to return to [204]oadstar."
  7. 90 getk$:ifk$=""thengosub60000:goto90
  8. 100 poke53280,rnd(1)*15
  9. 110 ifk$=" "ork$="[160]"thenk=1
  10. 120 onkgoto63000:goto90
  11. 60000 fordl=1to100:next
  12. 60001 ifc=0thenc=1:goto60005
  13. 60002 c=0
  14. 60005 ifc=0thenprint"   [215]arning!"
  15. 60010 ifc=1thenprint"   [215]arning!"
  16. 60020 return
  17. 63000 rem    connect back to l.s.
  18. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  19. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  20.